home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #9 / Amiga Plus CD - 2004 - No. 09.iso / amigaplus / tools / amigaos4_only / addmenu / s / arexx / addmenu.rexx
OS/2 REXX Batch file  |  2004-08-03  |  7KB  |  123 lines
  1. /* $VER: AddMenu 1.0 (02.07.2004) Alex Carmona
  2.  * 
  3.  * This script goes in S:Arexx/AddMenu.rexx   (-s--rwed)
  4.  *
  5.  * To load the menu at boot time, place the AddMenu.rexx.info icon
  6.  * in SYS:WBStartup/
  7.  *
  8.  * To either launch or quit from the Shell, type: RX AddMenu
  9.  *
  10.  * When editing from Special/Edit Menu: Make your changes, save, close Notepad.
  11.  * The menu will then reload itself.
  12.  *
  13.  * Notes:
  14.  * Be careful with single and double quotes, miss one and the menu will break.
  15.  * Look closely at the examples below to understand the proper syntax for
  16.  * sub-menus, names with spaces, sub-directories, multiple-commands, etc.
  17.  */
  18.  
  19. ADDRESS WORKBENCH
  20.  
  21. OPTIONS RESULTS
  22.  
  23. GETATTR MENUCOMMANDS.COUNT VAR commandcount
  24.  
  25. IF (commandcount == 0) THEN DO
  26.  
  27. /* --- ADD CUSTOM MENU --- */
  28.  
  29. /* TOOLS */
  30.  MENU ADD NAME Calculator    TITLE 'Calculator'    CMD "'ADDRESS COMMAND; Calculator"
  31.  MENU ADD NAME Exchange        TITLE 'Exchange'    SHORTCUT 'X'    CMD "'ADDRESS COMMAND; WBRun Exchange"
  32.  MENU ADD NAME AutoInfo     TITLE 'Commodities-\AutoInfo'        CMD "'ADDRESS COMMAND; WBRun  AutoInfo"
  33.  MENU ADD NAME AutoBorders    TITLE 'Commodities-\AutoBorderSize'    CMD "'ADDRESS COMMAND; WBRun  AutoBorderSize"
  34.  MENU ADD NAME AutoPoint    TITLE 'Commodities-\AutoPoint'        CMD "'ADDRESS COMMAND; WBRun  AutoPoint"
  35.  MENU ADD NAME Blanker        TITLE 'Commodities-\Blanker'        CMD "'ADDRESS COMMAND; WBRun  Blanker"
  36.  MENU ADD NAME ClickToFront    TITLE 'Commodities-\ClickToFront'    CMD "'ADDRESS COMMAND; WBRun  ClickToFront"
  37.  MENU ADD NAME ContextMenus    TITLE 'Commodities-\ContextMenus'     CMD "'ADDRESS COMMAND; WBRun  ContextMenus"
  38.  MENU ADD NAME CrossDOS        TITLE 'Commodities-\CrossDOS'         CMD "'ADDRESS COMMAND; WBRun  CrossDOS"
  39.  MENU ADD NAME DepthToFront    TITLE 'Commodities-\DepthToFront'    CMD "'ADDRESS COMMAND; WBRun  DepthToFront"
  40.  MENU ADD NAME FKey            TITLE 'Commodities-\FKey'            CMD "'ADDRESS COMMAND; WBRun  FKey"
  41.  MENU ADD NAME Iconify        TITLE 'Commodities-\Iconify'        CMD "'ADDRESS COMMAND; WBRun  Iconify"
  42.  MENU ADD NAME MouseBlanker    TITLE 'Commodities-\MouseBlanker'    CMD "'ADDRESS COMMAND; WBRun  MouseBlanker"
  43.  MENU ADD NAME NewRename    TITLE 'Commodities-\NewRename'        CMD "'ADDRESS COMMAND; WBRun  NewRename"
  44.  MENU ADD NAME NoCapsLock    TITLE 'Commodities-\NoCapsLock'        CMD "'ADDRESS COMMAND; WBRun  NoCapsLock"
  45.  MENU ADD NAME WBFilter        TITLE 'Commodities-\WBFilter'        CMD "'ADDRESS COMMAND; WBRun  WBFilter"
  46.  MENU ADD NAME WindowMenu    TITLE 'Commodities-\WindowMenu'        CMD "'ADDRESS COMMAND; WBRun  WindowMenu"
  47.  MENU ADD NAME IconEdit        TITLE 'IconEdit'        CMD "'ADDRESS COMMAND; WBRun  IconEdit"
  48.  MENU ADD NAME InitPrinter    TITLE 'InitPrinter'        CMD "'ADDRESS COMMAND; WBRun  InitPrinter"
  49.  MENU ADD NAME IoTools        TITLE 'IoTools'            CMD "'ADDRESS COMMAND; WBRun  IoTools"
  50.  MENU ADD NAME KeyShow        TITLE 'KeyShow'            CMD "'ADDRESS COMMAND; WBRun  KeyShow"
  51.  MENU ADD NAME MediaToolbox    TITLE '"Media Toolbox"'    CMD "'ADDRESS COMMAND; WBRun  ''Media Toolbox''"
  52.  MENU ADD NAME MEmacs        TITLE 'MEmacs'            CMD "'ADDRESS COMMAND; WBRun  MEmacs"
  53.  MENU ADD NAME Mounter        TITLE 'Mounter'            CMD "'ADDRESS COMMAND; WBRun  Mounter"
  54.  MENU ADD NAME PartWizard    TITLE 'PartitionWizard'    CMD "'ADDRESS COMMAND; WBRun  PartitionWizard"
  55.  MENU ADD NAME PlayCD        TITLE 'PlayCD'            CMD "'ADDRESS COMMAND; WBRun  PlayCD"
  56.  MENU ADD NAME PrintFiles    TITLE 'PrintFiles'        CMD "'ADDRESS COMMAND; WBRun  PrintFiles"
  57.  MENU ADD NAME Unarc        TITLE 'Unarc'            CMD "'ADDRESS COMMAND; WBRun  Unarc"
  58.  MENU ADD NAME USBInspector    TITLE 'USBInspector'    CMD "'ADDRESS COMMAND; WBRun  USBInspector"
  59.  
  60. /* UTILITIES */
  61.  MENU ADD NAME Action        TITLE '\Utilities\Action'        CMD "'ADDRESS COMMAND; WBRun  Action"
  62.  MENU ADD NAME AmiGS        TITLE '\Utilities\AmiGS'        CMD "'ADDRESS COMMAND; WBRun  ''SYS:UTILITIES/AMIGS/AmiGS''"
  63.  MENU ADD NAME AmiPDF        TITLE '\Utilities\AmiPDF'        CMD "'ADDRESS COMMAND; WBRun  ''SYS:UTILITIES/AMIPDF/AmiPDF''"
  64.  MENU ADD NAME Clock        TITLE '\Utilities\Clock'        CMD "'ADDRESS COMMAND; WBRun  Clock"
  65.  MENU ADD NAME MultiView    TITLE '\Utilities\MultiView'    CMD "'ADDRESS COMMAND; WBRun  MultiView"
  66.  MENU ADD NAME NotePad        TITLE '\Utilities\NotePad'        CMD "'ADDRESS COMMAND; WBRun  NotePad"
  67.  
  68. /* SYSTEM */
  69.  MENU ADD NAME FormatCdrw    TITLE '"\System\FormatCDRW"'    CMD "'ADDRESS COMMAND; WBRun  FormatCDRW"
  70.  MENU ADD NAME NewShell        TITLE '"\System\NewShell"'        CMD "'ADDRESS COMMAND; NewShell"
  71.  MENU ADD NAME TypeManager    TITLE '"\System\TypeManager"'    CMD "'ADDRESS COMMAND; WBRun  TypeManager"
  72.  
  73. /* PREFS */
  74.  MENU ADD NAME AHI            TITLE '\Prefs\AHI'            CMD "'ADDRESS COMMAND; WBRun  AHI"
  75.  MENU ADD NAME AmigaInput    TITLE '\Prefs\AmigaInput'    CMD "'ADDRESS COMMAND; WBRun  AmigaInput"
  76.  MENU ADD NAME Asl            TITLE '\Prefs\Asl'            CMD "'ADDRESS COMMAND; WBRun  Asl"
  77.  MENU ADD NAME DefIcons        TITLE '\Prefs\DefIcons'        CMD "'ADDRESS COMMAND; WBRun  DefIcons"
  78.  MENU ADD NAME Font            TITLE '\Prefs\Font'            CMD "'ADDRESS COMMAND; WBRun  Font"
  79.  MENU ADD NAME GUI            TITLE '\Prefs\GUI'            CMD "'ADDRESS COMMAND; WBRun  GUI"
  80.  MENU ADD NAME Input        TITLE '\Prefs\Input'        CMD "'ADDRESS COMMAND; WBRun  Input"
  81.  MENU ADD NAME Internet        TITLE '\Prefs\Internet'        CMD "'ADDRESS COMMAND; WBRun  Internet"
  82.  MENU ADD NAME Locale        TITLE '\Prefs\Locale'        CMD "'ADDRESS COMMAND; WBRun  Locale"
  83.  MENU ADD NAME MUI            TITLE '\Prefs\MUI'            CMD "'ADDRESS COMMAND; WBRun  ''MUI:MUI''"
  84.  MENU ADD NAME Overscan        TITLE '\Prefs\Overscan'        CMD "'ADDRESS COMMAND; WBRun  Overscan"
  85.  MENU ADD NAME Palette        TITLE '\Prefs\Palette'        CMD "'ADDRESS COMMAND; WBRun  Palette"
  86.  MENU ADD NAME Picasso96    TITLE '\Prefs\Picasso96'    CMD "'ADDRESS COMMAND; WBRun  Picasso96Mode"
  87.  MENU ADD NAME Pointer        TITLE '\Prefs\Pointer'        CMD "'ADDRESS COMMAND; WBRun  Pointer"
  88.  MENU ADD NAME PopupMenu    TITLE '\Prefs\PopupMenu'    CMD "'ADDRESS COMMAND; WBRun  PopupMenu"
  89.  MENU ADD NAME Printer        TITLE '\Prefs\Printer'        CMD "'ADDRESS COMMAND; WBRun  Printer"
  90.  MENU ADD NAME PrinterGfx    TITLE '\Prefs\PrinterGfx'    CMD "'ADDRESS COMMAND; WBRun  PrinterGfx"
  91.  MENU ADD NAME PrinterPS    TITLE '\Prefs\PrinterPS'    CMD "'ADDRESS COMMAND; WBRun  PrinterPS"
  92.  MENU ADD NAME ScreenMode    TITLE '\Prefs\ScreenMode'    CMD "'ADDRESS COMMAND; WBRun  ScreenMode"
  93.  MENU ADD NAME Screens        TITLE '\Prefs\Screens'        CMD "'ADDRESS COMMAND; WBRun  Screens"
  94.  MENU ADD NAME Serial        TITLE '\Prefs\Serial'        CMD "'ADDRESS COMMAND; WBRun  Serial"
  95.  MENU ADD NAME Sound        TITLE '\Prefs\Sound'        CMD "'ADDRESS COMMAND; WBRun  Sound"
  96.  MENU ADD NAME Time            TITLE '\Prefs\Time'            CMD "'ADDRESS COMMAND; WBRun  Time"
  97.  MENU ADD NAME USB            TITLE '\Prefs\USB'            CMD "'ADDRESS COMMAND; WBRun  USB"
  98.  MENU ADD NAME WBPattern    TITLE '\Prefs\WBPattern'    CMD "'ADDRESS COMMAND; WBRun  WBPattern"
  99.  MENU ADD NAME Workbench    TITLE '\Prefs\Workbench'    CMD "'ADDRESS COMMAND; WBRun  Workbench"
  100.  
  101. /* SPECIAL */
  102.  MENU ADD NAME EditMenu        TITLE '"\Special\Menu-\Edit"'    CMD "'ADDRESS COMMAND; Notepad ''REXX:AddMenu.rexx'' FF NWW; rx AddMenu; rx AddMenu"
  103.  MENU ADD NAME QuitMenu        TITLE '"\Special\Menu-\Remove"'    CMD 'AddMenu.rexx'
  104.  MENU ADD NAME Reboot        TITLE '"\Special\Reboot-\Fast"'    CMD "'ADDRESS COMMAND; Reboot ''fast''"
  105.  MENU ADD NAME Reset        TITLE '"\Special\Reboot-\Cold"'    CMD "'ADDRESS COMMAND; Reboot"
  106.  
  107. /* ------------------------- */
  108.  
  109. END
  110.  
  111. ELSE DO
  112.  
  113. /* --- REMOVE CUSTOM MENU --- */
  114.  
  115.  GETATTR MENUCOMMANDS STEM ccmm;
  116.  DO i = 0 TO commandcount-1
  117.   MENU REMOVE NAME ccmm.i.name
  118.  END
  119.  
  120. /* ------------------------- */
  121.  
  122. END
  123.